home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha Extra 2004 January / CyberMycha Extra 1-2004 (Poland) (Disc 2).bin / Pippi / gmgl.dir / Internal_22_print2.ls < prev    next >
Encoding:
Text File  |  2001-09-04  |  592 b   |  35 lines
  1. property myName, meSprite, meMember, meHmember
  2.  
  3. on beginSprite me
  4.   meSprite = sprite(me.spriteNum)
  5.   meMember = meSprite.member
  6.   myName = meSprite.member.name
  7.   meHmember = member(myName & "h", 2)
  8. end
  9.  
  10. on mouseUp me
  11.   hit = 0
  12.   repeat with n = 31 to 58
  13.     if sprite(n).marked = 1000 then
  14.       next repeat
  15.       next repeat
  16.     end if
  17.     sprite(n).mouseUp()
  18.     hit = 1
  19.     exit repeat
  20.   end repeat
  21.   if hit = 1 then
  22.     meSprite.mouseUp()
  23.   end if
  24. end
  25.  
  26. on mouseEnter me
  27.   meSprite.member = meHmember
  28.   updateStage()
  29. end
  30.  
  31. on mouseLeave me
  32.   meSprite.member = meMember
  33.   updateStage()
  34. end
  35.